#include <String.h>
#include <jni.h>
#include <termios.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <android/log.h>
#include <stdio.h>

#define TAG    "uart-jni"
#define LOGV(...) __android_log_print(ANDROID_LOG_VERBOSE, TAG, __VA_ARGS__)
#define LOGD(...) __android_log_print(ANDROID_LOG_DEBUG ,  TAG, __VA_ARGS__)
#define LOGI(...) __android_log_print(ANDROID_LOG_INFO  ,  TAG, __VA_ARGS__)
#define LOGW(...) __android_log_print(ANDROID_LOG_WARN  ,  TAG, __VA_ARGS__)
#define LOGE(...) __android_log_print(ANDROID_LOG_ERROR  , TAG, __VA_ARGS__)


static speed_t getBaudrate(jint baudrate)
{
	switch(baudrate) {
	case 0: return B0;
	case 50: return B50;
	case 75: return B75;
	case 110: return B110;
	case 134: return B134;
	case 150: return B150;
	case 200: return B200;
	case 300: return B300;
	case 600: return B600;
	case 1200: return B1200;
	case 1800: return B1800;
	case 2400: return B2400;
	case 4800: return B4800;
	case 9600: return B9600;
	case 19200: return B19200;
	case 38400: return B38400;
	case 57600: return B57600;
	case 115200: return B115200;
	case 230400: return B230400;
	case 460800: return B460800;
	case 500000: return B500000;
	case 576000: return B576000;
	case 921600: return B921600;
	case 1000000: return B1000000;
	case 1152000: return B1152000;
	case 1500000: return B1500000;
	case 2000000: return B2000000;
	case 2500000: return B2500000;
	case 3000000: return B3000000;
	case 3500000: return B3500000;
	case 4000000: return B4000000;
	default: return -1;
	}
}
/*
 * Class:     com_example_helloserial_Uart_OpenUart
 * Method:    Uartopen
 * Signature: ()I
 */
jstring Java_com_example_helloserial_Uart_00024OpenUart_Uartopen
  (JNIEnv *env, jobject thiz,jstring path, jint baudrate, jint nBits, jchar nEvent, jint nStop)
{
	int fd;
	speed_t speed;
	jobject mFileDescriptor;

	/* Check arguments */
	{
		speed = getBaudrate(baudrate);
		if (speed == -1) {
			/* TODO: throw an exception */
			LOGE("Invalid baudrate");
			return NULL;
		}
	}

	/* Opening device */
	{
		jboolean iscopy;
		const char *path_utf = (*env)->GetStringUTFChars(env, path, &iscopy);
		LOGD("Opening serial port %s", path_utf);
		fd = open(path_utf, O_RDWR | O_SYNC);
		LOGD("open() fd = %d", fd);
		(*env)->ReleaseStringUTFChars(env, path, path_utf);
		if (fd == -1)
		{
			/* Throw an exception */
			LOGE("Cannot open port");
			/* TODO: throw an exception */
			return NULL;
		}
	}

	/* Configure device */
	{
		struct termios cfg;
		LOGD("Configuring serial port");
		if (tcgetattr(fd, &cfg))
		{
			LOGE("tcgetattr() failed");
			close(fd);
			/* TODO: throw an exception */
			return NULL;
		}

		cfmakeraw(&cfg);

	    bzero( &cfg, sizeof( cfg ) );
	    cfg.c_cflag |= CLOCAL | CREAD;
	    cfg.c_cflag &= ~CSIZE;

	    switch ( nBits )
	    {
	    case 7:
	    	cfg.c_cflag |= CS7;
	        break;
	    case 8:
	    default:
	    	cfg.c_cflag |= CS8;
	        break;
	    }
	    switch ( nEvent )
	    {
	    case 'O':
	    	cfg.c_cflag |= PARENB;
	    	cfg.c_cflag |= PARODD;
	    	cfg.c_iflag |= (INPCK | ISTRIP);
	    	LOGI("check odd!");
	        break;
	    case 'E':
	    	cfg.c_iflag |= INPCK;//(INPCK | ISTRIP);
	    	cfg.c_cflag |= PARENB;
	    	cfg.c_cflag &= ~PARODD;
	    	LOGI("check even!");
	        break;
	    case 'N':
	    default:
	    	cfg.c_cflag &= ~PARENB;
	    	LOGI("check none!");
	        break;
	    }
		cfsetispeed(&cfg, speed);
		cfsetospeed(&cfg, speed);

	    if ( nStop == 2 )
	    	cfg.c_cflag |= CSTOPB;
		else
			cfg.c_cflag &= ~CSTOPB;

		if (tcsetattr(fd, TCSANOW, &cfg))
		{
			LOGE("tcsetattr() failed");
			close(fd);
			/* TODO: throw an exception */
			return NULL;
		}
	}

	/* Create a corresponding file descriptor */
	{
		jclass cFileDescriptor = (*env)->FindClass(env, "java/io/FileDescriptor");
		jmethodID iFileDescriptor = (*env)->GetMethodID(env, cFileDescriptor, "<init>", "()V");
		jfieldID descriptorID = (*env)->GetFieldID(env, cFileDescriptor, "descriptor", "I");
		mFileDescriptor = (*env)->NewObject(env, cFileDescriptor, iFileDescriptor);
		(*env)->SetIntField(env, mFileDescriptor, descriptorID, (jint)fd);
	}

	return mFileDescriptor;
}
